home *** CD-ROM | disk | FTP | other *** search
-
- «Set echo="off"»
- «COMMENT Get default setting in Options,»
- «COMMENT show all non-printing symbols:»
- <Esc>o<Tab 3>«Set SHOW=Mid(Field,1,1)»a<Enter>
- «COMMENT Mark cursor position w/bookmark:»
- <Esc>fkHERE<Enter>
- «Set LOG=1»
- «COMMENT Go to top of doc and search for spaces:»
- <Ctrl PgUp><Esc>s?<Space 2><Tab>d<Enter>
- «COMMENT If punctuation exists 2 spaces»
- «COMMENT to left of cursor, search not»
- «COMMENT successful (so search again):»
- «While found»
- «If Mid(Selection,1,1)="."»«Set LOG=0»«EndIf»
- «If Mid(Selection,1,1)=":"»«Set LOG=0»«EndIf»
- «If Mid(Selection,1,1)="!"»«Set LOG=0»«EndIf»
- «If Mid(Selection,1,1)="?"»«Set LOG=0»«EndIf»
- «If LOG=1»
- «COMMENT Move cursor to extra space:»
- <Right><Left 2>
- «COMMENT Press enter to delete space»
- «COMMENT or any other character + enter»
- «COMMENT to skip this occurrence:»
- «ASK OK=? ┘ Delete space, X+┘ to skip»
-
- «COMMENT Reposition cursor in case»
- «COMMENT there is more than 1 extra space:»
- «If OK=""»<Del><Left 2>«EndIf»
- «EndIf»
- «COMMENT Reset search parameters and start over:»
- «Set LOG=1»
- <Shift F4>
- «EndWhile»
- «COMMENT Return to & delete bookmark,»
- «COMMENT reset screen:»
- <Esc>jkHERE<Enter>
- <Esc>fk<Del><Enter>y
- <Esc>o<Tab 3>«SHOW»<Enter>
-
-